!file name=xsec.h
      integer opt
      real(NBF),pointer,dimension(:,:) :: diff,sigr,signf,chi,sigt,rsigt,xst,xsr,xsnf,xchi,rxst,rxsr
      real(NBF),pointer,dimension(:,:,:) :: xsd,beta,betax
      type(scattering),pointer,dimension(:,:) :: sigsm
      type(scatter),pointer,dimension(:,:) :: xssm
!
      common/bla/opt,diff,sigr,signf,chi,sigt,rsigt,xst,xsr,xsnf,xchi,rxst,rxsr
      common/blb/xsd,beta,betax
      common/blc/sigsm
      common/bld/xssm
